<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in.1</name>
<id>-1</id>
<cardCount>3</cardCount>
<cardID>4114</cardID>
<listID>5710</listID>
<cantModify><false /></cantModify>
<cantDelete><true /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>on openStackput the short name of this stack into fld "address"hide menuBarput empty into oneDownput empty into twoDownput empty into threeDownput empty into fourDownput empty into fiveDownget the number of lines in fld "new bal"put it into sHoldput (sHold * 16) into sHoldset scroll of fld "new bal" to sHoldend openStackon arrowKey directionif direction is "down" then click at 495,322if direction is "up" then click at 495,136else pass arrowkeyend arrowkeyon FindItglobal holder, fldHolderput empty into fld "searchResults"ask "What ‘Description’, ‘Check#’, or ‘Date’ would" &¬" you like to search for? (Include ‘#’ sign for ‘Check#’ searches)"if it is empty thenhide fld "searchResults"hide bg btn "hide search results"exit findItend ifput it into holderif char 1 of holder is not in "#,1,2,3,4,5,6,7,8,9,0" thenput fld "describe" of this card into fldHoldershow fld "searchResults"show bg btn "hide search results"elseif char 1 of holder is in "#" thenput fld "ck#" into fldHolderrepeat with x=1 to the number of lines in fldHolderset cursor to busyif holder is in line x of fldHolder thenset scroll of fld "new bal" to ((x-1)*16)exit findItend ifend repeatelseput fld "date" into fldHolderend ifend ifrepeat with x=1 to the number of lines in fldHolderset cursor to busyif holder is not in line x of fldHolder thennext repeatelseif line x of fld "credit" is empty thenput "Ck" && line x of fld "Ck#" && line x of fld¬"Describe" && line x of fld "debit" && "line/" && x & return after fld "searchResults"elseput line x of fld "date" && line x of fld "Describe" && ¬line x of fld "credit" && "line/" && x & return after fld "searchResults"end ifend ifput (scroll of fld "searchResults" + 16) into scrollHoldset scroll of fld "searchResults" to scrollholdend repeatif fld "searchResults" is empty thenanswer "Sorry, but no ‘Match’!"hide fld "searchResults"exit findItelseput return & "Total Found – " & (number of lines in fld "searchResults") after last line of fld "searchResults"put the last word of line 1 of fld "searchResults" into tempset scroll of fld "searchResults" to 0set scroll of fld "new bal" to (temp-1) *16end ifshow fld "searchResults"show bg btn "hide search results"end finditfunction fastSort inforepeat with x = 1 to the number of lines in inforepeat with y = x to the number of lines in infoset cursor to busyif line x of info > line y of info thenget line y of infoput line x of info into line y of infoput it into line x of infoget line y of fld "acctDels"put line x of fld "acctDels" into line y of fld "acctDels"put it into line x of fld "acctDels"end ifend repeatend repeatreturn infoend fastSort-- thank you Dan Winkler and/or Scot Kamins (--whoever wrote that)on closeStackif the freeSize of this stack > 10000 thendoMenu "Compact Stack"end ifend closeStack</script>
